home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Utilities / Programming / Mac F2C 1.3.1 / Mac F2C Libraries / libI77 Sources / For_MPW.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-11-29  |  1.1 KB  |  58 lines  |  [TEXT/CWIE]
  1. /**************************************************
  2. *                                                 *
  3. *   Define some functions not already available   *
  4. *   in the MPW environment.                       *
  5. *   Courtesty of Kris L. Jorgensen                *
  6. *                                                 *
  7. **************************************************/
  8. #include "stdio.h"
  9.  
  10.  
  11. #ifdef powerc
  12.  
  13. int fileno( FILE *p ) 
  14. {
  15.     return (int)(p->_file);
  16. }
  17.  
  18.  
  19. int isatty( int fn )
  20. {
  21.     if ( fn == fileno(stdin) || fn == fileno(stdout) || fn == fileno(stderr) )
  22.         return  1;
  23.         
  24.     else
  25.         return  0;
  26. }
  27.  
  28. #endif
  29.  
  30. /*
  31.     Provide FORTRAN glue code for SpinCursor
  32.     And add call throughs to SpinCursor for the functions 
  33.     used by Symantec, THINK, and CodeWarrior.
  34.     
  35.     Note:  under MPW, the parameter passed to DoMultiTask()
  36.            is interpreted as the counter increment, *NOT* as
  37.            the number of ticks to sleep!!!
  38. */
  39.  
  40. extern pascal void SpinCursor( short );
  41.  
  42. int spincursor_( long *count )
  43. {
  44.         SpinCursor( (short) *count );
  45. }
  46.  
  47. void DoMultiTask( long count )
  48. {
  49.         SpinCursor( (short) count );
  50. }
  51.  
  52. int domultitask_( long *count )
  53. {
  54.         SpinCursor( (short) *count );
  55. }
  56.  
  57.  
  58.